################################################################################
# COVAR I created this function, Therneau did not send it. It generates a 
# vector of uniformly distributed random variables, "a vector of covariates" 
# The length of the vector is determined by the first argument 
# passed to the function, the min and max defaults are 2, -2, but can be changed 
# by passing a min and a max value of the uniform distribution in the function 
# call.
# "In S-Plus, however, arguments aren't evaluated until the function body 
# requires them" -- This the call to the function covar in the function call 
# simdata just makes the function 'available' (see p123 in programmer's guide).
#################################################################################

covar <- function(len,min=-2,maxi=2) {
r2unif<-runif(len,min,maxi)
	return(r2unif)
}
#output1 <- covar(100,-2,2)
#output1
	

